Imports Microsoft.VisualBasic
Imports GTSDAL
Imports GTSDALTableAdapters

Namespace GTSSystem.BLL
    Public Class IdGenerator
        Private Sub New()

        End Sub

        Public Shared Function GetNextId(ByVal TableName As String) As Integer
            Try
                Dim adaptor As New GTSDALTableAdapters.IdGeneratorTableAdapter
                GetNextId = Convert.ToInt32(adaptor.GetNextID(TableName))
            Catch ex As Exception
                Throw
            End Try
        End Function

    End Class
End Namespace
